home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -in_the_mag- / pdselect / pio_icon / install next >
Text File  |  1999-11-27  |  1KB  |  50 lines
  1. ;
  2. ; PIO-Install
  3. ;
  4.  
  5. ;(effect "center" "horizontal"
  6. ;; ( + ( * ( + ( * 256 46) 139) 256) 87)
  7. ;; ( + ( * ( + ( * 256 240) 255) 256) 255)
  8. ;$2e8b57
  9. ;$f0ffff
  10. ;)
  11. (set #welcome ( cat "This script will install the icon plugin for PPaint. "
  12.             "The installation assumes that PPaint resides in the "
  13.             " directory assigned to PPAINT:.\n"
  14.             "\n  __      "
  15.             "\n //_)     "
  16.             "\n//__) WARE"
  17.         )
  18. )
  19.  
  20. (message #welcome)
  21. (welcome)
  22. (complete 0)
  23. (if (> @user-level 0)
  24.     (
  25.      (set #ppaint-dir
  26.     (askdir
  27.         (prompt "Please set the PPaint installation directory.")
  28.         (default "PPAINT:")
  29.         (help "No help available.")
  30.     )
  31.      )
  32.      (set #ppaint-setup
  33.     (askbool (prompt "Do you want to switch off PPaint's automatic icon generation ?")
  34.          (choices "Yes" "No")
  35.          (help "You have to turn off automatic generation of icons to enable the advanced features of the personal_icon_io.library.")
  36.     )
  37.      )
  38.     )
  39.     ((set #ppaint-dir "PPAINT:") (set #ppaint-setup 1))
  40. )
  41. (set @default-dest #ppaint-dir)
  42. (complete 35)
  43. (copylib (source "library/personal_icon_io.library") (dest (tackon #ppaint-dir "libs")) )
  44. (complete 70)
  45. (if  #ppaint-setup
  46.    ((run "setenv EDITSCRIPT f/ICONS/e/1/0/w")
  47.     (run ("edit \"%s\" with ENV:EDITSCRIPT opt w160" (tackon #ppaint-dir "PPaint_Prefs/Startup_1.set")))
  48. ))
  49. (complete 100)
  50.